home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / mhs / ttnnet.net < prev    next >
Text File  |  1992-09-24  |  648b  |  41 lines
  1. \disp |
  2.     TTNNET Network access routine
  3. |
  4. \bel
  5. \idle 2
  6. \slep 2
  7. \wait 150 "@" 1 0
  8. \cr
  9. \wait 150 "@" 1 0
  10. \cr
  11. \wait 150 "@" 0 20
  12. \:1
  13. \$4 ,\$1\cr
  14. \waitcase 2 80 "@" "PASSWORD=" 0 2 0
  15. \$4 ,\$1\cr
  16. \waitcase 2 80 "@" "PASSWORD=" 0 2 0
  17. \$4 ,\$1\cr
  18. \waitcase 2 80 "@" "PASSWORD=" 20 0 20
  19. \:2
  20. \idle 5
  21. \$2\cr
  22. \waitcase 2 80 "@" "CONNECTED" 0 10 0
  23. \$4 ,\$1\cr
  24. \wait 30 "PASSWORD=" 0 20
  25. \$2\cr
  26. \waitcase 2 80 "@" "CONNECTED" 0 10 0
  27. \$4 ,\$1\cr
  28. \wait 30 "PASSWORD=" 0 20
  29. \$2\cr
  30. \:10
  31. \disp "
  32. Connected to remote host
  33. Please wait ...
  34. "
  35. \ret 1
  36. \:20
  37. \disp "Connection to remote host failed.  Check network ID.
  38. "
  39. \ret 0
  40. \end
  41.